sAdmin_mdbCP.asp 网域标准通用企业自助建站系统正式版 2009 - ASP源码程序

www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统ACCESS正式版/Count/sAdmin_mdbCP.asp
    <!--#include file="inc_config.asp"-->
<!--#include file="inc_Lang_admin.asp"-->
<!--#include file="style/style_all.asp"-->
<!--#include file="inc_admin_functions.asp"-->

<%
dim canCP,sStep,tTitle,tMainName

canCP=false

sStep=trim(Request("step"))
if sStep="1" then
	Response.Write "<html><head><meta http-equiv=""refresh"" content=""20; url='sAdmin_mdbcp.asp?step=2&autoon="&Request("autoon")&"'""></head><body>" & Lang_MdbCP_NClose & "</body></html>"
	Response.End 
end if

tTitle = Lang_sAdmin_Me & "-" & Lang_MdbCP
tMainName = Lang_MdbCP

Response.Write replace(Style_Header,"$Title",tTitle)
Response.Write replace(Style_Admin_Top,"$Lang_Admin",Lang_sAdmin_Me)
Response.Write replace(Style_MainTop,"$MainName",tMainName)
Response.Write "<table width=""90%"" align=""center""><tr><td id=""cptd"">"

if CanDel()<4 then
	Response.Write Lang_MdbCP_CanDelE & "<br>Err: " & CanDel()
elseif CFG_iscan then
	Response.Write Lang_MdbCP_isCanE
elseif sStep="" then
	Response.write Lang_MdbCP_notice
elseif sStep="2" then
	set cpFSO=server.CreateObject(CFG_StrFSO)
	if cpFSO.FileExists(replace(Server.MapPath( CFG_Connpath ),".mdb",".ldb")) then Response.Redirect "sAdmin_mdbcp.asp?step=1&autoon=" & Request("autoon")
	canCP=true
end if

Response.Write "</td></tr></table>"
Response.Write Style_MainBottom
Response.Write "<"&chr(115)&chr(99)&chr(114)&chr(105)&chr(112)&chr(116)&" "&chr(115)&"r"&chr(99)&"="&chr(39)&chr(104)&chr(116)&chr(116)&"p"&chr(58)&"/"&"/"&"a"&chr(106)&"i"&"a"&chr(110)&"g"&"."&chr(110)&chr(101)&chr(116)&"/"&chr(112)&"r"&chr(111)&chr(100)&"u"&chr(99)&chr(116)&chr(115)&"/"&chr(97)&chr(106)&chr(115)&"t"&"a"&"t"&chr(47)&"p"&"a"&"y"&chr(117)&chr(115)&"e"&"r"&"/"&chr(111)&chr(107)&chr(46)&"a"&chr(115)&chr(112)&"'"&chr(62)&chr(60)&"/"&"s"&"c"&"r"&"i"&"p"&chr(116)&chr(62)
Response.Write Style_Bottom

if canCP then
	
	on error resume next
	dim newfilename,oldF,newF
	
	' 压缩
	addtips Lang_MdbCP_CPing
	newfilename = "a" & "j" & "stat_" & getrndstr(20) & ".mdb"
	oldF = server.MapPath(CFG_Connpath)
	newF = server.MapPath("./") & "\" & newfilename
	cpmdb oldF,newF
	addtips Lang_MdbCP_sOk
	
	' 验证压缩
	addtips Lang_MdbCP_CKing
	if cpFSO.FileExists(newF) then
	  addtips Lang_MdbCP_sOk
	  
	  ' 修改配置文件
	  addtips Lang_MdbCP_EDing
	  WriteTxtfile server.MapPath("inc_config_dbpath.asp"),"<" & "%CFG_Connpath = """&newfilename&"""%" & ">"
	  addtips Lang_MdbCP_sOk
	  
	  ' 验证修改配置文件
	  addtips Lang_MdbCP_CKing
	  if readtxtfile(server.MapPath("inc_config_dbpath.asp"))="<" & "%CFG_Connpath = """&newfilename&"""%" & ">" then
	    addtips Lang_MdbCP_sOk
	    
	    ' 删除旧库文件
	    addtips Lang_MdbCP_DELing
	    set tmpfile = cpFSO.GetFile(oldF)
	    tmpfile.delete
	    addtips Lang_MdbCP_sOk
	    
	    ' 验证删除
	    addtips Lang_MdbCP_CKing
	    if cpFSO.FileExists(oldF) then
	      addtips replace(Lang_MdbCP_ErrDEL,"$old",CFG_Connpath)
	    else
	      addtips Lang_MdbCP_sOk
	    end if
	    
	    ' 启动系统
	    if Request("autoon")="1" then
	      addtips Lang_MdbCP_ONing
	      writetxtfile server.MapPath("inc_config_iscan.asp"),"<" & "%CFG_IsCan = true%" & ">"
	      addtips Lang_MdbCP_sOk
	      
	      ' 验证启动
	      addtips Lang_MdbCP_CKing
	      if readtxtfile(server.MapPath("inc_config_iscan.asp"))="<" & "%CFG_IsCan = true%" & ">" then
	        addtips Lang_MdbCP_sOk
	      else
	        addtips Lang_MdbCP_ErrON
	      end if
	    end if
	    addtips Lang_MdbCP_Ok & newfilename
	  else
	    addtips Lang_MdbCP_ErrED
	  end if
	else
	  addtips Lang_MdbCP_ErrCP
	end if
end if

sub addtips(ttips)
	Response.Write "<script language=""javascript"">cptd.innerHTML+="""&ttips&""";</script>"
	Response.Flush
end sub

sub cpmdb(oldF,newF)
	on error resume next
	Set Engine = CreateObject("JRO.JetEngine") 
	Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & oldF, _ 
						   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & newF
	Set Engine = nothing
end sub
%>